home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / tcp_seq.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  848 b   |  32 lines
  1. if (!defined &_TCP_SEQ) {
  2.     eval 'sub _TCP_SEQ {1;}';
  3.     eval 'sub SEQ_LT {
  4.         local($a,$b) = @_;
  5.         eval "((\'int\')(($a)-($b)) < 0)";
  6.     }';
  7.     eval 'sub SEQ_LEQ {
  8.         local($a,$b) = @_;
  9.         eval "((\'int\')(($a)-($b)) <= 0)";
  10.     }';
  11.     eval 'sub SEQ_GT {
  12.         local($a,$b) = @_;
  13.         eval "((\'int\')(($a)-($b)) > 0)";
  14.     }';
  15.     eval 'sub SEQ_GEQ {
  16.         local($a,$b) = @_;
  17.         eval "((\'int\')(($a)-($b)) >= 0)";
  18.     }';
  19.     eval 'sub tcp_rcvseqinit {
  20.         local($tp) = @_;
  21.         eval "($tp)-> &rcv_adv = ($tp)-> &rcv_nxt = ($tp)-> &irs + 1";
  22.     }';
  23.     eval 'sub tcp_sendseqinit {
  24.         local($tp) = @_;
  25.         eval "($tp)-> &snd_una = ($tp)-> &snd_nxt = ($tp)-> &snd_max = ($tp)-> &snd_up = ($tp)-> &iss";
  26.     }';
  27.     eval 'sub TCP_ISSINCR {(125*1024);}';
  28.     if (defined &KERNEL) {
  29.     }
  30. }
  31. 1;
  32.